home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS01.ADF / ABasicStuff / Tools / MoreColors.bas < prev    next >
BASIC Source File  |  1986-01-09  |  567b  |  25 lines
  1. 0 more colors.bas
  2. 5     a=10:b=10
  3. 10    rgb 0,0,0,0:rgb 1,12,12,12
  4. 20    screen 1,4
  5. 30    for x=0 to 15
  6. 40    pena x:box(a,b;a+20,b+20),1
  7. 50    a=a+21:next
  8. 60    ?"  Here are the original 16 colors"
  9. 70    ?at(2,5)" Here are the some mixed colors";
  10. 80    ?at(0,1)
  11. 100   randomize 355/133
  12. 130   a=40:b=40
  13. 140   y=a
  14. 150   pena rnd(1)*31
  15. 160   for x=b to b+20 step 2
  16. 170   draw(x,y to x,y+20)
  17. 180   next
  18. 190   pena rnd(1)*31
  19. 200   for x=b+1 to b+21 step 2
  20. 210   draw(x,y to x,y+20)
  21. 220   next
  22. 230   b=b+21:if b>620 then a=a+21:b=10
  23. 240   if a>157 then end
  24. 250   goto 140
  25.